Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/grptr10/form1.frm

Text File | 1999-08-14 | 7KB | 209 lines

VERSION 5.00
Object = "{71A84222-5296-11D3-9029-AD32BF5E5177}#1.0#0"; "GR-PROGRESS.OCX"
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Totalidea GradientProgress Bar Demo Project"
   ClientHeight    =   3045
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5070
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3045
   ScaleWidth      =   5070
   StartUpPosition =   2  'CenterScreen
   Begin GradientProgressBar.grprogress grprogress1
      Height          =   945
      Left            =   90
      TabIndex        =   18
      Top             =   450
      Width           =   4905
      _ExtentX        =   8652
      _ExtentY        =   1667
      BeginColor      =   65280
      EndColor        =   255
      BorderStyle     =   1
   End
   Begin VB.OptionButton Option9
      Caption         =   "Use Separators"
      Height          =   255
      Left            =   3360
      TabIndex        =   17
      Top             =   2700
      Width           =   1425
   End
   Begin VB.Frame Frame3
      Caption         =   "CaptionVisible:"
      Height          =   795
      Left            =   3720
      TabIndex        =   14
      Top             =   1680
      Width           =   1275
      Begin VB.OptionButton Option8
         Caption         =   "No"
         Height          =   195
         Left            =   330
         TabIndex        =   16
         Top             =   480
         Width           =   645
      End
      Begin VB.OptionButton Option7
         Caption         =   "Yes"
         Height          =   195
         Left            =   330
         TabIndex        =   15
         Top             =   240
         Value           =   -1  'True
         Width           =   645
      End
   End
   Begin VB.TextBox Text1
      Height          =   255
      Left            =   1500
      TabIndex        =   13
      Text            =   "%"
      Top             =   2730
      Width           =   1575
   End
   Begin VB.Frame Frame2
      Caption         =   "Show Caption as "
      Height          =   795
      Left            =   1500
      TabIndex        =   9
      Top             =   1680
      Width           =   2145
      Begin VB.OptionButton Option6
         Caption         =   "Value-Units"
         Height          =   195
         Left            =   150
         TabIndex        =   11
         Top             =   510
         Width           =   1305
      End
      Begin VB.OptionButton Option5
         Caption         =   "Percentage"
         Height          =   225
         Left            =   150
         TabIndex        =   10
         Top             =   240
         Value           =   -1  'True
         Width           =   1155
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Direction:"
      Height          =   1305
      Left            =   90
      TabIndex        =   4
      Top             =   1680
      Width           =   1335
      Begin VB.OptionButton Option1
         Caption         =   "Left-Right"
         Height          =   225
         Left            =   120
         TabIndex        =   8
         Top             =   210
         Value           =   -1  'True
         Width           =   1035
      End
      Begin VB.OptionButton Option2
         Caption         =   "Right-Left"
         Height          =   225
         Left            =   120
         TabIndex        =   7
         Top             =   480
         Width           =   1035
      End
      Begin VB.OptionButton Option3
         Caption         =   "Down-Up"
         Height          =   225
         Left            =   120
         TabIndex        =   6
         Top             =   750
         Width           =   1035
      End
      Begin VB.OptionButton Option4
         Caption         =   "Up-Down"
         Height          =   225
         Left            =   120
         TabIndex        =   5
         Top             =   1020
         Width           =   1035
      End
   End
   Begin VB.HScrollBar HScroll1
      Height          =   195
      Left            =   90
      Max             =   1000
      TabIndex        =   0
      Top             =   1410
      Width           =   4905
   End
   Begin VB.Label Label4
      Caption         =   "Set CaptionAppendix:"
      Height          =   225
      Left            =   1500
      TabIndex        =   12
      Top             =   2520
      Width           =   1545
   End
   Begin VB.Label Label3
      Alignment       =   1  'Right Justify
      Height          =   195
      Left            =   4590
      TabIndex        =   3
      Top             =   90
      Width           =   375
   End
   Begin VB.Label Label2
      Caption         =   "GradientValue:"
      Height          =   195
      Left            =   3450
      TabIndex        =   2
      Top             =   90
      Width           =   1065
   End
   Begin VB.Label Label1
      Caption         =   "Gradient Progress Bar Demo:"
      Height          =   195
      Left            =   120
      TabIndex        =   1
      Top             =   90
      Width           =   2085
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
HScroll1.Value = grprogress1.Value
End Sub

Private Sub HScroll1_Change()
If Option9.Value = True Then grprogress1.SepInterval = 20
If Option7.Value = True Then grprogress1.ShowCaption = True
If Option8.Value = True Then grprogress1.ShowCaption = False
If Option5.Value = True Then grprogress1.CaptionAsPercentage = True
If Option6.Value = True Then grprogress1.CaptionAsPercentage = False
If Option1.Value = True Then grprogress1.GradientDirection = LeftRight
If Option2.Value = True Then grprogress1.GradientDirection = RightLeft
If Option3.Value = True Then grprogress1.GradientDirection = DownUp
If Option4.Value = True Then grprogress1.GradientDirection = UpDown
grprogress1.Paint HScroll1.Value
grprogress1.Captionappendix = Text1.Text
Label3.Caption = grprogress1.Value
End Sub


Private Sub Option5_Click()
Text1.Text = "%"
End Sub

Private Sub Option6_Click()
Text1.Text = "units"
End Sub